giúp em với

Câu 3:

program cauba;

int chieudai, chieurong, chuvi, dientich :real;

begin

write('Chieu dai la: '); Readln(chieudai);

write('Chieu rong la: '); Readln(chieurong);

chuvi = (chieudai + chieu rong)*2;

dientich= chieudai*chieurong;

writeln('Chu vi la: ',chuvi);

writeln('Dien tich la: ',dientich);

end.

Caua1:

program caumot;

begin

writeln('lop 8A chao ban!');

end.

Câu 2:

program cauhai;

int a,b,c :real;

begin

write('a='); readln(a);

write('b='); readln(b);

c= a+b;

write('Tong hai so a b la:',c);

end.

uses crt;

begin

clrscr;

writeln('12+20=',12+20);

writeln('chao cac ban minh la hoc sinh lop 9');

readln;

end.

uses crt;

var st1,st2:string;

begin

clrscr;

readln(st1);

readln(st2);

writeln('Ten minh ',st1);

writeln('Lop ',st2);

readln;

end.

uses crt;

var i:integer;

a:array[1..20]of string;

begin

clrscr;

for i:=1 to 20 do readln(a[i]);

for i:=1 to 20 do 

  writeln('Xin chao, ban thu ',i,' ten la: ',a[i]);

readln;

end.

Program Hoc24;

var i: byte;

begin

for i:=1 to 20 do

writeln('Chao ban thu ',i);

readln

end.

uses crt;

var a:array[1..100]of string;

i,n:integer;

begin

clrscr;

write('nhap so lop='); readln(n);

for i:=1 to n do 

  begin

write('Nhap ten lop thu ',i,'='); readln(a[i]);

end;

writeln('Danh sach cac lop 9 la: '); 

for i:=1 to n do 

writeln(a[i]);

readln;

end.

Chọn A

A

uses crt;
var b,c:real; a:array[1..100] of integer; s:real;
begin
clrscr;
write('Nhap vao diem hoc ki 1:');readln(b);
write('Nhap vao diem hoc ki 2:');readln(c);
s:=((b+c)*2)/3;
write('Diem ca nam=',s:2:2);
readln;
end.

Tham khảo! Làm hơi ngắn

Tham khảo

program oken;
uses crt;
var a: array [1..100] of real;
    i,n,dy,dtb,dk,dg:integer;
begin
        clrscr;
        write('Co bao nhieu ban can nhap diem: '); readln(N);
        for i:=1 to n do
                begin
                        write('nhap diem ban thu ',i,': ');
                        readln(a[i]);
                        if a[i]<5 then
                                dy:=dy+1
                        else if a[i]<6.4 then
                                dtb:=dtb+1
                        else if a[i]<7.9 then
                                dk:=dk+1
                        else
                                dg:=dg+1;
                end;
        writeln('So ban hoc yeu: ',dy);
        writeln('So ban hoc trung binh: ',dtb);
        writeln('So ban hoc kha: ',dk);
        writeln('so ban hoc gioi: ',dg);
        readln;
end.

program Phanloai;

uses crt;

Var i, n, Gioi, Kha, Trungbinh, Kem: integer;

      A: array[1..100] of real;

Begin

clrscr;

write('Nhap so cac ban trong lop, n = '); readln(n);

writeln('Nhap diem:');

For i:=1 to n do Begin write(i,'.'); readln(a[i]); End;

Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;

for i:=1 to n do

   begin

        if a[i]>=8.0 then Gioi:=Gioi+1;

        if a[i]<5 then Kem:=Kem+1;

        if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1;

        if (a[i]>=5) and (a[i]<6.5) then Trungbinh:=trungbinh+1

     end;

writeln('Ket qua hoc tap:');

writeln(Gioi,' ban hoc gioi');

writeln(Kha,' ban hoc kha');

writeln(Trungbinh,' ban hoc trung binh');

writeln(Kem,' ban hoc kem');

readln

End.